home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE05 / CLINIC / LISTING2.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-12-07  |  264 b   |  13 lines
  1. if Stretch then begin
  2.   Bmp := TBitmap.Create;
  3.   try
  4.     Bmp.Height := Picture.Height;
  5.     Bmp.Width  := Picture.Width;
  6.     Bmp.Canvas.Draw(0, 0, Picture.Graphic);
  7.     inherited Canvas.StretchDraw(Dest, Bmp);
  8.   finally
  9.     Bmp.Free;
  10.   end;
  11. end
  12.   else
  13.